%% Table: Parameter Estimates (with SE)
diary off

    % table 1
%     filename = '../../output/tables/fullmodel_param_se1.tex';    
%     delete(filename)
%     diary(filename)
%     diary on    
%     fprintf('\\begin{tabular}{lccc}'); fprintf('\n');
%     fprintf('\\hline\\hline\\\\[-0.8em]'); fprintf('\n');
%     fprintf('& Parameter & Estimate & Standard error \\\\[0.2em]'); fprintf('\n');
%     fprintf('\\hline\\\\[-0.8em]'); fprintf('\n');    
%     fprintf('Matching friction &$\\kappa$ & %.5f & (%.5f) \\\\[0.2em]', est(1), SE_standard(1)); fprintf('\n');
%     fprintf('Directed search &$\\nu_v$ & %.2f & (%.2f) \\\\[0.2em]', est(2), SE_standard(2)); fprintf('\n');
%     fprintf('Complementarity &$\\nu_y$ & %.2f & (%.2f) \\\\[0.2em]', est(3), SE_standard(3)); fprintf('\n');
%     fprintf('\\hline\\\\[-0.8em]'); fprintf('\n');
%     fprintf('Sd of quality capability &$\\sigma_{\\omega_1}$ & %.3f & (%.3f) \\\\[0.2em]', est(8), SE_standard(8)); fprintf('\n');
%     fprintf('Sd of efficiency capability &$\\sigma_{\\omega_0}$ & %.3f & (%.3f) \\\\[0.2em]', est(9), SE_standard(9)); fprintf('\n');
%     fprintf('Correlation &$\\rho$ & %.3f & (%.3f) \\\\[0.2em]', est(10), SE_standard(10)); fprintf('\n');
%     fprintf('Efficiency cost of quality &$\\overline{\\omega}_2$ & %.3f & (%.3f) \\\\[0.2em]', est(11), SE_standard(11)); fprintf('\n');
%     fprintf('\\hline\\\\[-0.8em]'); fprintf('\n');    
%     fprintf('Mean of log export cost &$\\mu_E$ & %.2f & (%.2f) \\\\[0.2em]', est(4), SE_standard(4)); fprintf('\n');
%     fprintf('Sd of log export cost &$\\sigma_E$ & %.2f & (%.2f) \\\\[0.2em]', est(5), SE_standard(5)); fprintf('\n');
%     fprintf('Foreign demand shifter &$b_1$ & %.2f & (%.2f) \\\\[0.2em]', est(6), SE_standard(6)); fprintf('\n');
%     fprintf('Foreign demand curvature &$b_2$ & %.2f & (%.2f) \\\\[0.2em]', est(7), SE_standard(7)); fprintf('\n');
%     fprintf('\\hline\\hline'); fprintf('\n');
%     fprintf('\\end{tabular}'); fprintf('\n');   
%     diary off
    
    % table 2
%    filename = '../../output/tables/fullmodel_param_se2.tex';    
    filename = '../../output/tables/Table6.tex';    
    delete(filename)
    diary(filename)
    diary on    
    fprintf('\\begin{tabular}{lccc}'); fprintf('\n');
    fprintf('\\hline\\hline\\\\[-0.8em]'); fprintf('\n');
    fprintf('& Parameter & Estimate & Standard error \\\\[0.2em]'); fprintf('\n');
    fprintf('\\hline\\\\[-0.8em]'); fprintf('\n');    
    fprintf('Matching friction &$\\kappa$ & %.5f & (%.5f) \\\\[0.2em]', est(1), SE_clustered(1)); fprintf('\n');
    fprintf('Directed search &$\\nu_v$ & %.2f & (%.2f) \\\\[0.2em]', est(2), SE_clustered(2)); fprintf('\n');
    fprintf('Complementarity &$\\nu_y$ & %.2f & (%.2f) \\\\[0.2em]', est(3), SE_clustered(3)); fprintf('\n');
    fprintf('\\hline\\\\[-0.8em]'); fprintf('\n');
    fprintf('Sd of quality capability &$\\sigma_{\\omega_1}$ & %.3f & (%.3f) \\\\[0.2em]', est(8), SE_clustered(8)); fprintf('\n');
    fprintf('Sd of efficiency capability &$\\sigma_{\\omega_0}$ & %.3f & (%.3f) \\\\[0.2em]', est(9), SE_clustered(9)); fprintf('\n');
    fprintf('Correlation &$\\rho$ & %.3f & (%.3f) \\\\[0.2em]', est(10), SE_clustered(10)); fprintf('\n');
    fprintf('Efficiency cost of quality &$\\overline{\\omega}_2$ & %.3f & (%.3f) \\\\[0.2em]', est(11), SE_clustered(11)); fprintf('\n');
    fprintf('\\hline\\\\[-0.8em]'); fprintf('\n');    
    fprintf('Mean of log export cost &$\\mu_E$ & %.2f & (%.2f) \\\\[0.2em]', est(4), SE_clustered(4)); fprintf('\n');
    fprintf('Sd of log export cost &$\\sigma_E$ & %.2f & (%.2f) \\\\[0.2em]', est(5), SE_clustered(5)); fprintf('\n');
    fprintf('Foreign demand shifter &$b_1$ & %.2f & (%.2f) \\\\[0.2em]', est(6), SE_clustered(6)); fprintf('\n');
    fprintf('Foreign demand curvature &$b_2$ & %.2f & (%.2f) \\\\[0.2em]', est(7), SE_clustered(7)); fprintf('\n');
    fprintf('\\hline\\hline'); fprintf('\n');
    fprintf('\\end{tabular}'); fprintf('\n');   
    diary off
  
